home *** CD-ROM | disk | FTP | other *** search
- object frmMain: TfrmMain
- Left = 252
- Top = 111
- ActiveControl = lvTZ
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'Time Zone Tester'
- ClientHeight = 381
- ClientWidth = 785
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- OldCreateOrder = True
- Position = poScreenCenter
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object lvTZ: TListView
- Left = 5
- Top = 8
- Width = 386
- Height = 329
- Columns = <
- item
- Caption = 'GMT'
- Width = 40
- end
- item
- Caption = 'Name'
- Width = 114
- end
- item
- Caption = 'H'
- Width = 20
- end
- item
- Alignment = taRightJustify
- Caption = 'StdB'
- Width = 35
- end
- item
- Alignment = taRightJustify
- Caption = 'DltB'
- Width = 35
- end
- item
- Caption = 'S'
- Width = 20
- end
- item
- Alignment = taCenter
- Caption = 'Date Time'
- Width = 100
- end>
- HideSelection = False
- ReadOnly = True
- RowSelect = True
- SortType = stData
- TabOrder = 0
- ViewStyle = vsReport
- OnClick = lvTZClick
- OnCompare = lvTZCompare
- OnSelectItem = lvTZSelectItem
- end
- object grpTimezone: TGroupBox
- Left = 394
- Top = 24
- Width = 385
- Height = 337
- TabOrder = 1
- object Label2: TLabel
- Left = 8
- Top = 12
- Width = 68
- Height = 13
- Caption = 'Standard time:'
- end
- object Label1: TLabel
- Left = 8
- Top = 88
- Width = 97
- Height = 13
- Caption = 'Daylight saving time:'
- end
- object Label3: TLabel
- Left = 8
- Top = 192
- Width = 51
- Height = 13
- Caption = '&Local time:'
- FocusControl = dateLocal
- end
- object Label4: TLabel
- Left = 208
- Top = 192
- Width = 47
- Height = 13
- Caption = '&UTC time:'
- FocusControl = dateUTC
- end
- object lblSwatchHead: TLabel
- Left = 208
- Top = 264
- Width = 65
- Height = 13
- Caption = '&Internet Time:'
- FocusControl = dateSwatch
- end
- object lblSwatch: TLabel
- Left = 304
- Top = 284
- Width = 11
- Height = 13
- Caption = '@'
- end
- object lblSwatch2: TLabel
- Left = 304
- Top = 308
- Width = 11
- Height = 13
- Caption = '@'
- end
- object Label5: TLabel
- Left = 8
- Top = 164
- Width = 84
- Height = 13
- Caption = 'Current UTC bias:'
- FocusControl = outUTCBias
- end
- object Label6: TLabel
- Left = 144
- Top = 164
- Width = 36
- Height = 13
- Caption = 'minutes'
- FocusControl = outUTCBias
- end
- object StandardSet: TSpeedButton
- Left = 327
- Top = 9
- Width = 49
- Height = 22
- Caption = 'Set'
- Enabled = False
- OnClick = StandardSetClick
- end
- object Label7: TLabel
- Left = 162
- Top = 12
- Width = 35
- Height = 13
- AutoSize = False
- Caption = 'Month:'
- end
- object Label8: TLabel
- Left = 247
- Top = 12
- Width = 31
- Height = 13
- AutoSize = False
- Caption = 'wDay:'
- end
- object Label9: TLabel
- Left = 162
- Top = 86
- Width = 35
- Height = 13
- AutoSize = False
- Caption = 'Month:'
- end
- object Label10: TLabel
- Left = 246
- Top = 86
- Width = 32
- Height = 13
- AutoSize = False
- Caption = 'wDay:'
- end
- object DaylightSet: TSpeedButton
- Left = 327
- Top = 83
- Width = 49
- Height = 22
- Caption = 'Set'
- Enabled = False
- OnClick = DaylightSetClick
- end
- object outInvalidTime: TEdit
- Left = 208
- Top = 208
- Width = 164
- Height = 21
- ParentColor = True
- ReadOnly = True
- TabOrder = 16
- Text = 'Invalid local time'
- Visible = False
- end
- object timeUTC: TDateTimePicker
- Left = 300
- Top = 208
- Width = 73
- Height = 21
- CalAlignment = dtaLeft
- Date = 36255.635038333300000000
- Time = 36255.635038333300000000
- DateFormat = dfShort
- DateMode = dmComboBox
- Kind = dtkTime
- ParseInput = False
- TabOrder = 8
- OnChange = dateLocalChange
- end
- object dateUTC: TDateTimePicker
- Left = 208
- Top = 208
- Width = 89
- Height = 21
- CalAlignment = dtaLeft
- Date = 36255.634835428210000000
- Time = 36255.634835428210000000
- DateFormat = dfShort
- DateMode = dmComboBox
- Kind = dtkDate
- ParseInput = False
- TabOrder = 9
- OnChange = dateLocalChange
- end
- object outStandard: TMemo
- Left = 8
- Top = 32
- Width = 369
- Height = 49
- ParentColor = True
- ReadOnly = True
- TabOrder = 0
- end
- object outDaylight: TMemo
- Left = 8
- Top = 106
- Width = 369
- Height = 49
- ParentColor = True
- ReadOnly = True
- TabOrder = 1
- end
- object dateLocal: TDateTimePicker
- Left = 8
- Top = 208
- Width = 89
- Height = 21
- CalAlignment = dtaLeft
- Date = 36255.634835428210000000
- Time = 36255.634835428210000000
- DateFormat = dfShort
- DateMode = dmComboBox
- Kind = dtkDate
- ParseInput = False
- TabOrder = 10
- OnChange = dateLocalChange
- end
- object timeLocal: TDateTimePicker
- Left = 100
- Top = 208
- Width = 73
- Height = 21
- CalAlignment = dtaLeft
- Date = 36255.635038333300000000
- Time = 36255.635038333300000000
- DateFormat = dfShort
- DateMode = dmComboBox
- Kind = dtkTime
- ParseInput = False
- TabOrder = 11
- OnChange = dateLocalChange
- end
- object btnLocD2S: TButton
- Left = 8
- Top = 272
- Width = 165
- Height = 25
- Caption = 'Start of &Standard Time'
- Enabled = False
- TabOrder = 6
- OnClick = btnLocD2SClick
- end
- object btnLocS2D: TButton
- Left = 8
- Top = 304
- Width = 165
- Height = 25
- Caption = 'Start of &Daylight Saving Time'
- Enabled = False
- TabOrder = 7
- OnClick = btnLocD2SClick
- end
- object dateUTC2: TDateTimePicker
- Left = 208
- Top = 232
- Width = 89
- Height = 21
- CalAlignment = dtaLeft
- Date = 36255.634835428210000000
- Time = 36255.634835428210000000
- Color = clBtnFace
- DateFormat = dfShort
- DateMode = dmComboBox
- Kind = dtkDate
- ParseInput = False
- TabOrder = 12
- OnCloseUp = timeUTC2Change
- OnChange = timeUTC2Change
- end
- object timeUTC2: TDateTimePicker
- Left = 300
- Top = 232
- Width = 73
- Height = 21
- CalAlignment = dtaLeft
- Date = 36255.000000000000000000
- Time = 36255.000000000000000000
- Color = clBtnFace
- DateFormat = dfShort
- DateMode = dmComboBox
- Kind = dtkTime
- ParseInput = False
- TabOrder = 13
- OnChange = timeUTC2Change
- end
- object dateSwatch: TDateTimePicker
- Left = 208
- Top = 280
- Width = 89
- Height = 21
- CalAlignment = dtaLeft
- Date = 36255.634835428210000000
- Time = 36255.634835428210000000
- DateFormat = dfShort
- DateMode = dmComboBox
- Kind = dtkDate
- ParseInput = False
- TabOrder = 14
- OnChange = dateLocalChange
- end
- object timeSwatch: TSpinEdit
- Left = 320
- Top = 280
- Width = 49
- Height = 22
- MaxLength = 3
- MaxValue = 999
- MinValue = 0
- TabOrder = 3
- Value = 0
- OnChange = dateLocalChange
- end
- object dateSwatch2: TDateTimePicker
- Left = 208
- Top = 304
- Width = 89
- Height = 21
- CalAlignment = dtaLeft
- Date = 36255.634835428210000000
- Time = 36255.634835428210000000
- Color = clBtnFace
- DateFormat = dfShort
- DateMode = dmComboBox
- Kind = dtkDate
- ParseInput = False
- TabOrder = 15
- OnCloseUp = timeUTC2Change
- OnChange = timeUTC2Change
- end
- object timeSwatch2: TSpinEdit
- Left = 320
- Top = 304
- Width = 49
- Height = 22
- MaxLength = 3
- MaxValue = 999
- MinValue = 0
- ParentColor = True
- ReadOnly = True
- TabOrder = 4
- Value = 0
- end
- object btnLocNow: TButton
- Left = 8
- Top = 240
- Width = 165
- Height = 25
- Caption = '&Now'
- TabOrder = 5
- OnClick = btnLocD2SClick
- end
- object outUTCBias: TEdit
- Left = 96
- Top = 160
- Width = 41
- Height = 21
- ParentColor = True
- ReadOnly = True
- TabOrder = 2
- end
- object StMonth: TSpinEdit
- Left = 200
- Top = 8
- Width = 41
- Height = 22
- Hint = 'starting month'
- Enabled = False
- MaxValue = 12
- MinValue = 1
- TabOrder = 17
- Value = 1
- end
- object StDay: TSpinEdit
- Left = 280
- Top = 8
- Width = 41
- Height = 22
- Hint = 'starting weekday [ 5 = last ]'
- Enabled = False
- MaxValue = 5
- MinValue = 1
- TabOrder = 18
- Value = 1
- end
- object DlMonth: TSpinEdit
- Left = 200
- Top = 82
- Width = 41
- Height = 22
- Hint = 'starting month'
- Enabled = False
- MaxValue = 12
- MinValue = 1
- TabOrder = 19
- Value = 1
- end
- object DlDay: TSpinEdit
- Left = 280
- Top = 82
- Width = 41
- Height = 22
- Hint = 'starting weekday [ 5 = last ]'
- Enabled = False
- MaxValue = 5
- MinValue = 1
- TabOrder = 20
- Value = 1
- end
- end
- object StatusBar1: TStatusBar
- Left = 0
- Top = 362
- Width = 785
- Height = 19
- Panels = <>
- SimplePanel = True
- end
- object StaticText1: TStaticText
- Left = 394
- Top = 8
- Width = 385
- Height = 18
- AutoSize = False
- BorderStyle = sbsSunken
- TabOrder = 3
- end
- object StaticText2: TStaticText
- Left = 5
- Top = 341
- Width = 386
- Height = 18
- Hint = 'current status of time zone'
- AutoSize = False
- BorderStyle = sbsSunken
- TabOrder = 4
- end
- end
-